home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
rkey14.zip
/
RKGENFIL.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-07
|
953b
|
41 lines
Program RkGenKey;
{
This is a sample program using rKey. It is a sample of a key file
generation program that would be used by the programmer to create
key files to be distributed to registered users. The program itself
would NOT be distributed, as it would allow users to generate key
files. This sample will create a key file for the RkSample program.
}
Uses
rKey;
Const
RkGenFilVer = '1.0';
Var
n : String[36];
Begin
OwnerCode := 'ArgleBarbWotsLeeb';
ProgramCode := 'RkSample Two';
KeyFileName := 'RKSAMPLE';
WriteLn('RkGenFil v' + RkGenFilVer);
WriteLn('Key File Generation Program for RkSample v2.x');
WriteLn('(c) 1990 TrendSoft, Inc.');
WriteLn;
WriteLn('FOR INTERNAL USE ONLY!');
WriteLn('DO NOT DISTRIBUTE!');
WriteLn;
Write('Enter name of person to register : ');
ReadLn(n);
WriteLn;
Register(n,MakeKey(n));
WriteLn(KeyFilePath + ' created.');
End.